home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / facc10.zip / _OVERL.PRG < prev    next >
Text File  |  1995-02-02  |  2KB  |  72 lines
  1. /* _overl.prg:  sample .prg file to be called by FACADE-C.EXE.
  2.  
  3.    Compile and link,
  4.  
  5.         clipper _overl
  6.         rtlink fi _overl lib nanfor
  7.  
  8.    then execute from the DOS prompt:
  9.  
  10.         facade-c <enter>
  11.  
  12. */
  13.  
  14.  
  15.  
  16. /* initialize variables, open tables, do other non-screen stuff here.
  17.    Judicious use of dispbegin() and dispend() will also provide ability to
  18.    build complex opening screens without disturbing the suspended VGA pcx
  19.    image. */
  20.  
  21.                          /*  ft_* functions are in nanfor.lib; if using another
  22.                              library, substitute the functions that determine
  23.                              display adaptor and set display mode  */
  24. // for vga pcx hold-on:
  25. if ft_adapter() == 3     //  if vga, Facade-C has initiated graphics mode, so
  26.    inkey(4)              //      hold image in view for 4 seconds, then
  27.    ft_setmode(3)         //      return to text mode display.
  28. else                     //  if not vga, Facade-C displays brief "Loading...".
  29.    cls                   //  ugly stuff if you don't clear text screen here.
  30. endif
  31.  
  32.  
  33. /* do what you will from this point on */
  34. setcursor(0)
  35.  
  36. if iscolor()
  37.     doscolor := setcolor()
  38.     setcolor("w+/b")
  39.     @ 02,05 clear to 20,76
  40. endif
  41.  
  42. @ 02,05 to 20,76 double
  43. @ 04,09 say "Here is the sample Clipper .prg _OVERL.EXE executing."
  44. inkey(2)
  45. @ 06,09 say "Your Clipper application must be renamed _OVERL.EXE via the .lnk"
  46. @ 07,09 say "file and executes normally after the sign-on screen is displayed."
  47. inkey(5)
  48. @ 09,09 say "You would rename FACADE-C.EXE to 'MYAPP.EXE' or whatever your"
  49. @ 10,09 say "application was called, so that the end-user executes your"
  50. @ 11,09 say "program's name.  Default command-line settings:  //E:0 //F:31."
  51. inkey(6)
  52. @ 13,09 say "Your sign-on 640x480x16 pcx file must be renamed _ADMIN.PCX."
  53. inkey(3)
  54. @ 15,09 say "The sign-on loader does not remain in memory; it releases itself"
  55. @ 16,09 say "when it calls the executable named _OVERL.EXE."
  56. inkey(4)
  57. @ 18,09 say ;
  58.     "Facade-C (Facade for Clipper), (C) 1994-95 RCCO Research"
  59. inkey(1)
  60.  
  61. if iscolor()
  62.     setcolor(doscolor)
  63. endif
  64.  
  65. @ 21,07 say ;
  66.     "RCCO Research   /   P. O. Box 196   /   Gatlinburg, TN 37738 (U.S.A.)"
  67. ?
  68. setcursor(1)
  69. return
  70.  
  71. // eof _overl.prg
  72.